home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0292.ZIP
/
CUBS.ARC
/
CUBPRINT.PRG
< prev
next >
Wrap
Text File
|
1985-12-21
|
1KB
|
63 lines
*CUBPRINT.PRG
CLEAR
SET TALK OFF
*SET PRINT ON
*SET MARGIN TO 5
*? CHR(27)+CHR(99)+CHR(49)
?
?
?
?
? CHR(14)+CHR(27)+CHR(33)
? ' CUBSCOUT PACK 240'
? CHR(15)+' Vilseck, GE'
?
?
STORE DATE() TO MDATE
IF MDEN = ' ALLCUBS'
? ' ì
'+MDEN
ELSE
? ' ì
'+MDEN
ENDIF
? ' '+DTOC(MDATE)
?
?
?
? CHR(27)+CHR(81)+CHR(27)+CHR(34)
? 'SCOUT DOB RESIDENCE ì
HOME DUTY DEN'
?
STORE 1 TO PAGCNT
STORE 0 TO PAGECNT
STORE 0 TO LINECNT
DO WHILE .NOT. EOF()
? SCOUT, DOB, ' ', RESIDENCE,' ', HOME, DUTY, DEN
?
LINECNT = LINECNT+1
SKIP
IF LINECNT >21
?
? CHR(12)
? CHR(10)+CHR(10)+CHR(10)+CHR(10)
? 'SCOUT DOB RESIDENCE ì
HOME DUTY DEN'
?
STORE 0 TO LINECNT
PAGECNT = PAGECNT + 1
PAGCNT = PAGCNT + 1
ENDIF
ENDDO
?
? CHR(27)+CHR(69)
? 'RECORDS REPORTED' +STR(LINECNT + PAGECNT * 22)
?
?
*? ' Page ' +STR(PAGCNT)
? CHR(12)
SET PRINT OFF
RETURN